home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Games / JST / sources / OSEmu / diskfont.s < prev    next >
Encoding:
Text File  |  2001-03-19  |  825 b   |  28 lines
  1. * $Id: diskfont.s 1.1 1999/02/03 04:08:28 jotd Exp $
  2.  
  3.  
  4. **************************************************************************
  5. *   diskfont-LIBRARY                                                    *
  6. **************************************************************************
  7. **************************************************************************
  8. *   INITIALIZATION                                                       *
  9. **************************************************************************
  10.  
  11. DSKFINIT    move.l    _dskfbase,d0
  12.         beq    .init
  13.         rts
  14.  
  15. .init        move.l    #162,d0        ; reserved function
  16.         move.l    #80,d1        ; 20 variables: should be OK
  17.         lea    _dskfname,a0
  18.         bsr    _InitLibrary
  19.         move.l    d0,a0
  20.         move.l    d0,_dskfbase
  21.         
  22.         patch    _LVOOpenDiskFont(a0),_OpenDiskFont
  23.         rts
  24.  
  25. _OpenDiskFont:
  26.     move.l    #_TOPAZNAME,(A0)
  27.     jmp    _OPENFONT
  28.